#|
  This file is a part of humble-pathname project.
|#

(in-package :cl-user)
(defpackage humble-pathname
  (:use :cl)
  (:export :dir-pathname :*load-pathname-located*))
(in-package :humble-pathname)


(defun dir-pathname (path)
  (make-pathname
    :device (pathname-device path)
    :directory (pathname-directory path)))


(define-symbol-macro *load-pathname-located*
  (dir-pathname (load-time-value *load-pathname*)))


;;; EOF
